1000 POKE50258,64:POKE50255,PEEK(50255)+1
1030 POKE50257,20:REM STATUS UEBERGEBEN
1040 :
1060 PRINTCHR$(142);CHR$(8):SI=54272
1080 POKE53280,12:POKE53281,12:PRINT"[147]";
1100 PRINT"                                       [146]
1120 [153]"FOR              KONTAKTECKE              WAIT
1140 PRINT"[129]                                       [146]"
1180 PRINT"
1200 :
1220 [153]"   (null)LENLENLENLENRIGHT$
1260 PRINT"  [213][179]    [171][195][195][195][195][195][195][195][201]
1270 [153]"  PEEKPEEK    PEEK       PEEK
1280 PRINT"  [194][171][201]  [213][179][213][195][195][195][195][195][201][194]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1300 PRINT"  [194][194][194]  [194][194] [144][166][166][166][166][166] [194]      [165]           [158]  [146][167][208] ";
1320 PRINT"  [194][194][194]  [194][194] [144][166][166][166][166][166] [194]      [165]           [158]  [146][167][170][208]";
1340 PRINT"  [194][194][194]  [194][194]       [194]      [165]             [167][170][170]";
1360 PRINT"  [194][194][194]  [194][194]  [144]123[146]  [194]      [165]     [144]'''' '''[167][170][170]";
1380 PRINT"  [194][194][194]  [194][194]  [144]456[146]  [194]     [160][165][144]:::: ''''' ''[167][170][170]";
1400 PRINT"  [194][194][194][160][160][194][194]  [144]789[146]  [194]      [165][144]:::: '' '''''[167][170][170]";
1420 PRINT"  [194][194][194]  [194][194]  [144]*0#[146]  [194]      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170][170]";
1430 PRINT"  [194][171][203]  [202][179]     [144]/ [194]       [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170]";
1435 PRINT"  [194][194]    [194] [144] [209] [209]  [194]        [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
1440 PRINT"  [202][179]    [171][195][195][195][195][195][195][195][203]
1460 [153]"   MID$LENLENLENLEN(null)
1480 PRINT
1500 :
1520 PRINT"[149]
1540 [153]"STOPMIT EINER UEBERRASCHUNG AM ENDE "
1560 [153]
1600 [141]7000
1610 X1$[178]"TASTEWAIT DRUECKEN!ON"
1620 X2$[178]"TASTE DRUECKENWAIT!ON"
1630 [153]X1$:R[178]1
1640 [161]R$:[139]R$[179][177]""[167]1680
1650 R[178]R[170]1:[139]R[178]40[167][153]X2$
1660 [139]R[178]80[167]R[178]1:[153]X1$
1670 [137]1640
1680 [143]
2000 [143] SEITE 1
2002 [151]53280,7 :[151]53281,7 :[153][199](14);[199](8);"LOAD";
2004 [153]"STOPORTANTANTANTANTAN^ASC(null)(null)(null)(null)(null) 1541 CHR$VAL(null)(null)LENLEFT$(null)!$$$$$$$$$$$$$";
2006 [153]"STOP(null) TAN(null)TAN (null)PEEKRIGHT$VAL(null)VAL ASC(null)VAL(null) VALRIGHT$(null)VAL CHR$(null)(null) CHR$VAL(null)ASC(null)VALCHR$(null)VAL (null)(null)STR$";
2008 [153]"STOP/TANTANTANTANTANEXP(null)(null)(null)VAL(null)(null)(null)VAL(null)(null)(null)VAL ASC(null)(null)(null)(null)(null) 1541 500STR$(null)!!!";
2010 [153]"STOP*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!";
2012 [153]"STOP(null)ATN(null)ASCVAL ATN(null)LENLEFT$ PEEK(null)VALLENLEFT$VAL(null) (null).PEEKRIGHT$(null)(null)RIGHT$CHR$STR$(null)(null)LEN(null)VAL(null) ASC(null)VAL(null)"
2014 [153]"STOPC64 SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(*(null)VAL(null).06105/74464 *SPC(";
2016 [153]"STOPATN(null)CHR$VALPEEK(null)(null)VAL ATN(null)SPC(SPC(SPC(SPC(SPC(>SPC(SPC(SPC(SPC(*(null)ATN(null)(null)(null)(null) PEEKRIGHT$VAL(null)VALASCVAL(null)STR$*SPC(";
2018 [153]"STOPVON 15-20(null)HR MEISTENS*(null)ATN(null)(null)ATN(null)RIGHT$VAL(null)(null)VALCHR$ 16SPC(*SPC(";
2019 [153]"STOPODER VON 8-12 (null)HRSPC(SPC(SPC(**6082 (null)ATN(null)(null)STR$(null)(null)ASCSPC(SPC(SPC(**";
2020 [153]"":Z[178]13:[141]9999
2022 [153]"LEFT$ANDBUCH STOPFUER LEFT$ACKER UND ANDERE ASCREAKS"
2024 [153]"VALINFUEHRUNG IN DIE (null)RAXIS DER STR$ATENFERN-";
2026 [153]"VERARBEITUNG MIT LEFT$OMECOMPUTERN."
2028 [153]"PEEKEZUG: (null)ATHMANN-(null)CHALLA  (null)REIS: 38,-STR$(null)"
2030 [153]"           *  *  *  *  *"
2032 [153]"   STOPRIGHT$MMER AN INTERESSANTER (null)OFTWARE"
2034 [153]"STOP     FUER DEN LEN 64 INTERESSIERT."
2036 [153]"     (null)ICHARD (null)UETZ, ATNNKERSTR. 40,"
2038 [153]"    5102 (null)UERSELEN, (null)EL.02405/91476
2050 T1$="[215]ENN/[201]HRE LODERNDE [195]OMPUTER-[194]EGEISTERUNG/JUENGST/ZUR FLAMMENDEN"
2055 T2$="[160][204]EIDENSCHAFT/WURDE/UND/DAS [199]ANZE/GARANTIERT/NICHT ALS [211]TROHFEUER/"
2060 T3$="ENDET/HABEN [211]IE/VERMUTLICH/VOR KURZEM/AUS PURER [206]EUGIER/C'T GELESEN"
2062 T4$=""
2065 T$=T1$+T2$+T3$+T4$:GOSUB9600
2067 GOSUB8888
5000 REM SEITE 5
5002 POKE53280,7 :POKE53281,7 :PRINTCHR$(14);"[147]"
5004 PRINT"[200]IER [144]KOENNTE AUCH [201]HRE [203]LEINANZEIGE"
5006 PRINT"STEHEN.":PRINT:PRINT
5007 PRINT"           *  *  *  *  *"
5008 PRINT"[215]ENN [144][211]IE [203]ONTAKTE[160]SUCHEN, [200]ARDWARE ODER"
5010 PRINT"[211]OFTWARE ANBIETEN WOLLEN ODER SUCHEN,"
5012 PRINT"DANN TEILEN [211]IE UNS DEN [212]EXT [201]HRER"
5014 PRINT"[203]LEINANZEIGE BITTE SCHRIFTLICH MIT.":Z=13:GOSUB9999
5022 PRINT"[211]IE [144]KOENNEN FUER [201]HRE [203]ONTAKTANZEIGE"
5024 PRINT"ALLE [218]EICHEN DES [160][195]64  VERWENDEN, DIE"
4898 PRINT"UEBER DEN '[199]ROSS-[203]LEINSCHRIFT-[205]ODUS'"
5028 PRINT"ERREICHBAR SIND!!"
5030 PRINT"           *  *  *  *  *"
5032 PRINT"[194]ITTE [144]BEACHTEN [211]IE, DASS FUER [213]MLAUTE"
5034 PRINT"ZWEI [218]EICHEN BENOETIGT WERDEN."
5050 T1$="[211]IE KOENNEN ENTWEDER EINE [193]NZEIGE MIT 4 ODER MIT 9 [218]EILEN AUFGEBEN."
5055 T2$=""
5060 T3$="[160][196]IE FOLGENDEN [208]REISE GELTEN NUR FUER PRIVATE [203]ONTAKTANZEIGEN:"
5062 T4$="[160]4 [218]EILEN 10[196][205] / 9 [218]EILEN 20[196][205]"
5065 T$=T1$+T2$+T3$+T4$:GOSUB9600
5099 GOSUB8888
5100 GOTO20000
5530 PRINT"           *  *  *  *  *"
6995 END
6996 :
6997 REM UNTERPROGRAMME
6998 :
6999 REM KLINGELN
7000 POKESI+24,15:FORI=0TO2:POKESI,40 :POKESI+1,234
7020 POKESI+7,130:POKESI+8,110:POKESI+14,20:POKESI+15,117
7040 POKESI+6,240:POKESI+13,240:POKESI+20,240:FORT=0TO500:NEXTT
7055 FORJ=0TO20:POKESI+4,33:POKESI+11,33:POKESI+18,17
7057 POKESI+4,32:POKESI+11,32:POKESI+18,16:NEXTJ:NEXTI:POKESI+24,0:RETURN
7599 :
8886 :
8887 REM
8888 Z=24:S=0:GOSUB9999:PRINT"[144]   [212]ASTE DRUECKEN!   [146]";
8889 FORT=0TO200:NEXTT
8890 GETG$:IFG$=""THEN8890
8896 GOSUB9999:PRINT"               ";:RETURN
9599 REM FLIESSdo
9600 Z=10:S=2:GOSUB9999:PRINT"[144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
9602 Z=11:S=2:GOSUB9999:PRINT"[144]                                   "
9603 Z=12:S=2:GOSUB9999:PRINT"[144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
9604 T$="                               "+T$:POKE198,0
9606 FORI=1TOLEN(T$)-28:Z=11:S=5:GOSUB9999
9607 GETR$:IFR$<>""THENRETURN
9608 PRINT"[144]";MID$(T$,I,29):FORZ=0TO40:NEXTZ,I:RETURN
9997 :
9998 REM CURSOR SETZEN
9999 POKE214,Z:POKE211,S:SYS58640:PRINT"";:RETURN
20000 POKE53271,0:POKE53277,0
20100 SYS19048:SYS18544
20110 SYS50283